Yes, vague indeed.. here's my 2 cents

#!/usr/bin/perl -w
use strict;
use Win32;

my $dir = Win32::GetCwd();
print "$dir\n";

# Or try this

#my $baseLoc = "c:\\web";
#my $baseLoc = "c:\\wb\\configFile.pl";
#print "$baseLoc\n";
[download]