#!/usr/bin/env perl

use strict;
use warnings;

use ExtUtils::testlib;

use MySession;

my $x = MySession::new("Session ID Goes Here");
print "$x\n";
my ($p, $q, $str) = MySession::get($x);
print "$p\n$q\n$str\n";

my $y = MySession::new("Another Session ID Goes Here");
print "$y\n";
($p, $q, $str) = MySession::get($y);
print "$p\n$q\n$str\n";

my $z = MySession::new("Yet Another Session ID Goes Here");
print "$z\n";
($p, $q, $str) = MySession::get($z);
print "$p\n$q\n$str\n";

MySession::disconnect($x);
MySession::disconnect($y);
MySession::disconnect($z);
 __END__