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