#! /usr/bin/perl

print 'Enter path of file: ';

 chomp($path = <>);

open(FH,"$path") || die "$!\n";

while (<FH>){

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

 print " $_\n";}

##</code><code>##

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