Select Code to Download

sub makelog {
        open (LOGFILE, ">>$logfile") or die("Can't Open Log File at $l
+ogfile");
...
        print LOGFILE ("\n");
        close (LOGFILE);
}

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
...
    $value =~ s/%0D%0A/\, /g;
        ...
}