Select Code to Download

#!/usr/bin/perl -s
opendir+D,pop;$.=pop;$,=pop;for(grep{-f
...
/^y/i)&&++$force;}; (!defined$q)&&print
"\n";defined$force&&rename$;,$_}

opendir+D,pop;
$.=pop;
$,=pop;

for(grep{-f$_}readdir(D)){ ... }

$;=$_;
s=$,=$.=;

(!defined$q||defined$i)&&print"$; $_";

(defined$i)&&do{ .. }

print" y/n?";$y=<STDIN>;($y=~/^y/i)&&++$force;

(!defined$q)&&print"\n";

defined$force&&rename$;,$_