Select Code to Download

perl -pi -e '$_=">$ARGV\n$_\n"' *.txt

while(<>){}