Select Code to Download

#!/usr/bin/env perl

use warnings;
...
    my $output = do { local $/; <$next> }; # slurp!
    print map { "$pid:$_\n" } split /\n/, $output;
}