use strict; 
   use Cwd;

   # Remember to untaint $dir
   my $dir = getcwd();