Help for this page
#! /usr/bin/perl ... $_=~ tr/a-zA-Z/0-310/; print " $_\n";}
use cwd; $dir = getcwd; #etc.. print 'Enter new file name: ';