Select Code to Download

if (-f "./$sessid.session") {
    # Read it.
...
} else {
    print "Error reading Upload progress...";
}

if ( open my $read_fh, '<', "./$sessid.session" ) {
    my $data = <$read_fh>;
...
} else {
    print "Error reading session file for session $sessid: $!";
}