Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    # and forget the collected information
    %info = ();
};

if ( defined $cds && defined $gi && defined $version ) { # Print only 
+when all variables are defined
        print "$gi\t$version\t$cds\n";
        $gi = $cds = undef; # Get ready for the next loop
        }