Select Code to Download

sub found_file {
  my $file = shift;
  warn "Found '$file'\n";
}

 use warnings;
 use strict;
...
$poe_kernel->run();
exit(0);