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