Select Code to Download

find2perl /some/directory -name '*.gz' -exec gunzip {} \;

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