Select Code to Download

#!/usr/bin/perl -w
use strict;
...
close(PIPE) || die "close error : $!\n";

for(1..4){ pop @data; }