Select Code to Download

#! perl -l
use strict;
...
unlink("file1") or print __LINE__ . ": This isnt printed $!/$^E";
unlink("file2") or print __LINE__ . ": This isnt printed $!/$^E";

C:\test\junk>..\junk41
26: Cant remove file1 because Permission denied/The process cannot acc
+ess the file because it is being used by another process
...
[2] pipe closed
[2] thread ending
36: This isnt printed No such file or directory/The system cannot find
+ the file specified