Select Code to Download

$ cat file.txt | perl -ne '(1..10)&&print'

#!/usr/bin/perl
my $counter;
...
  print if ($counter++ < 10);
}
close A;