use warnings;
use strict;

use lib '.';
use X;

BEGIN {
    no strict 'refs';
    for (keys %X::){
        my $symbol = "X::$_";
        if (defined &{$symbol}){
            print "importing '$symbol' sub into our namespace\n";
            *$_ = \&{$symbol};
        }
    }
}

print Dumper {a => 1};
usleep 500000;
copy 'x.txt', 'y.txt' or die $!;