Select Code to Download

my %config
(
...
    nasmailmsg_to     => 'name@email.com',
    dm_check          => 'dmcheck.txt',
);

MIME::Lite->send('smtp', $config{smtp_destination});

if (! open my $fh, '<',  $config{nas_array_ip_list})
...

system 'del dmcheck.txt';

unlink $config{dm_check} or warn "Could not unlink file '$config{dm_ch
+eck}': $!";