Select Code to Download

@SRR016086.1 308GJAAXX:2:1:911:957 length=36
CCCCCCCCCCACCCCCCCACACCACAAACACACCAC
...
CCCCCCCCCAACACAAAAACAAAATCCAAAACAATA
+SRR016086.3 308GJAAXX:2:1:908:956 length=36
II@III50I*9I+<00%.<9/,%-"$*2('&"&)""

use Bio::SeqIO;
my $file = $ARGV[0] || "test.fastq"; 
...
    print "$seq->id\n";

}

my  $INFILE_file_name = $file;      # input file name

...

close ( INFILE );           # close input file