Select Code to Download

#! /usr/bin/perl

...
 $_=~ tr/a-zA-Z/0-310/;

 print " $_\n";}

use cwd;
$dir = getcwd;
#etc..
print 'Enter new file name: ';