Select Code to Download

my @funcsToCall=qw/check scan something/;
while(<*.pu>)
...
  do $_;
  map{&{$_}} @funcsToCall;
}

sub scan{do scan stuff;}
sub check{etc;}
sub something{yeah}