I believe you can require them in. Personally I tend to read the code into a variable and eval it.

sub run_it { 
    my $filename = shift;

    open my $in, $filename or die $!;
    local $/ = undef;
    my $entire_script = <$in>;
    close $in;

    eval $entire_script; die $@ if $@;
}
[download]