if (-f "./$sessid.session") {
    # Read it.
    open (READ, "./$sessid.session");
    my $data = <READ>;
    close (READ);
    print "$data";
} else {
    print "Error reading Upload progress...";
}