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

use test1;

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

##</code><code>##

# file test1.pm
package test1;

sub abc {
    my $file = shift;
    my $variable = do $file;
} 

##</code><code>##

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