#!/opt/perl

use v5.10;

eval qq(
    package Generated;

    sub joy {
        say("Hello");
    }

    1;
);

Generated::joy();