Select Code to Download

package X;

...
use Time::HiRes qw(usleep);

1;

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

importing 'X::copy' sub into our own namespace
importing 'X::usleep' sub into our own namespace
...
          'a' => 1
        };
No such file or directory at x.pl line 20.