Select Code to Download

use Data::Dumper;
my $dir = system('pwd');
print Dumper($dir);

/web1/users/u2369/cgi-bin 
$VAR1 = 0;