Select Code to Download

#!perl -T
use warnings;
...
    eval { unlink $file; };
    ok (! $@, "core dump temp file deleted successfully" );
}