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: $!";
}