Select Code to Download

#!/usr/bin/env perl -l

...
        print $line;
    }
}

1474530606.74812
0
...
1474530609.75927
10
11

last unless @packets;
my $line = shift @packets;

last if eof $fh;
my $line = <$fh>;

ualarm 1 if $line == 6;