Select Code to Download

#!/usr/bin/perl

...
    $$session->close;
#    print "\npost\n", pp($session), "\n", pp($sessionO), "\n";
}

#!/usr/bin/perl

...
#    print "\npost\n", pp($session), "\n", pp($sessionO), "\n";
}