Help for this page

Select Code to Download


  1. or download this
    (direct quoting from DBI)
Here's a more fancy example that binds columns to the
...
while ($sth->fetch) {
  print "$row{region}: $row{sales}\n";
}
  2. or download this
    __SIG__
printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::
+svref_2object(sub{})->OUTSIDE