Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
require $file or die "require() failed\n";

unlink $file or die "Can't delete file '$file': $!: $^E\n";
  2. or download this
    use strict;
use warnings;
...
$sub->();

unlink $file or die "Can't delete file '$file': $!: $^E\n";
  3. or download this
    use strict;
use warnings;
...
require $file or die "require() failed\n";

unlink $file or die "Can't delete file '$file': $!: $^E\n";
  4. or download this
    use strict;
use warnings;
...
handle_sigint() if $interrupted;

unlink $file or die "Can't delete file '$file': $!: $^E\n";