#!perl -l

system qq{del "$0" >nul 2>&1};
print(-e $0 ? "not deleted" : "deleted");

close(DATA);

system qq{del "$0" >nul 2>&1};
print(-e $0 ? "not deleted" : "deleted");

__DATA__

##</code><code>##

not deleted
deleted