Select Code to Download

while ( $tmpline = <FROM> ) {
    chomp $tmpline;
...
        print "$key => $value\n";
    }
}

$tmpline =~ s/;;/", "/g;
$tmpline = qq{"$tmpline"};