Select Code to Download

$ perl test.pl
Use of uninitialized value $file in scalar chomp at test.pl line 10.

#!/usr/bin/perl
use strict;
...
99    Q    CAG    OUT
    OUT
100    Q    CAG    OUT