Help for this page
use strict; use warnings;
#!/usr/bin/perl use strict; use warnings; use Cwd; my $currDir = cwd; print "$currDir\n";