Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $line = <$info> // die "Log file '$fileName' too short\n";
    print $line;
}