Select Code to Download

while (@delete_me) {
        $x = pop(@delete_me);
        unlink $x or die "Can't unlink $x : $!";
        }

#!/usr/local/bin/perl  -w
use strict;

...
    }
exit;
}