Select Code to Download

#!/usr/bin/perl
use strict;
...
if ( $delete_temp ) {
    unlink $tmp or die "Error removing $tmp: $!\n";
}