Select Code to Download

use strict;
use warnings;
...
}

unlink $log or die $!;

while( defined( my $line = $file->read ) ) { ...