Select Code to Download

    # open a new file and transfer bit by bit from what's in the buffe
+r
    open( SAVED, ">>$localfile" );    # || die $!;
...
        print SAVED $buffer;
    }
    close SAVED;

#!/usr/bin/perl -w

...
my $combo = join("::", $filename, $title, $desc, $w, $h);
$upload{localtime()} = "$combo";
}