use Pg;

my $conn = Pg::connectdb("dbname = test");
my $result = $conn->exec("begin work");
    $result = $conn->exec("declare c1 cursor for select foo
from bar");
    $result = $conn->exec("fetch forward 1 in c1;");

print "Hurray, I fetched a row: ",
       $result->fetchrow,
       $/;
   $result = $conn->exec("end work;");

##</code><code>##

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;