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