Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    %info = ();
};
>

Use of uninitialized value $info{"gi"} in string at C:\Perl\bin\wtf14.
+pl line 32, <INFILE> line 154.
Use of uninitialized value $info{"version"} in string at C:\Perl\bin\w
+tf14.pl line 32, <INFILE> line 154.
Use of uninitialized value $info{"cds"} in concatenation (.) or string
+ at C:\Perl\bin\wtf14.pl line 32, <INFILE> line 154.
...
90970328        complement(join(941000..941109,947817..947957,
145611425        complement(join(941000..941109,944578..944763,
145611430        join(1099417..1099545,1106141..1106293,1108069..11081
+51,