Select Code to Download

while (<STDIN>){
File::Find::find({wanted => \&wanted}, $_);
exit;
}

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
...
    chdir $File::Find::dir;
    return !$?;
}