Select Code to Download

use strict;
use warnings;
...
}

unlink $file;

sub somefunc { open my $f, "<", shift or die 'cannot open file' };

skip "cannot run under root", 2 unless $<;