Select Code to Download

#!/usr/bin/perl -w
use strict;
...
        print "$line\n";
    }
}

use strict;
open(PRINT,"| lp") || die "Could not start lp : $!\n";
...
    last if ($. > 5);
}
close(PRINT);