Help for this page

Select Code to Download


  1. or download this
    my $sql = 'update upps_ret_q set state=?, message=? where seq_n=?';
my $sth = $dbh->prepare( $sql );
$sth->execute( $state, $msg, $key );
  2. or download this
    __SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;