Select Code to Download

while(<>){                # <>: used handle is STDIN
   print if $.==5;        # so $. is that handle's line number
}

my $file="/etc/hosts";
my $i=0; # let's use 1-based numbers
...
   $i++;
   print "$i: $_" if $i == 5;
}