Untitled

my $_sl = ($^O eq "MSWin32") ? "\\" : "/";
my $_file = $0;
my $_cwd = cwd;
$_file =~ s/$_cwd//g;
$_file = cwd.$_sl.$_file;
$_cwd = substr($_file, 0, rindex $_file, $_sl).$_sl;

print $_file."\n\n".$_cwd;