Select Code to Download

#!/usr/bin/perl
# script test_main.pl
...

my $var = test1::abc('test.pl');
print $var,"\n";

# file test1.pm
package test1;
...
    my $file = shift;
    my $variable = do $file;
}

# file test.pl
my $time = scalar localtime time;
$time;