# Choose the Nth FASTA record
# Called as "perl script_name.pl line_number file_name"
use warnings;
use strict;

$/= '>';
my $line_number = shift;
while(<>)
   chomp;
   if ($.-1 == $line_number ) {
      print;
      exit 0;
   }
}