Help for this page

Select Code to Download


  1. or download this
    use Cwd;
my $dir = getcwd;
print "$dir\n";
  2. or download this
    use File::Basename;
my $dir = dirname( $0 );
print "$dir\n";