# file test1.pm
package test1;

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