use File::Basename;
print dirname $0;

##</code><code>##

print $0 =~ /(.*)\\/;
# or if you want the trailing backslash
print $0 =~ /(.*\\)/;