Help for this page

Select Code to Download

Select or download this

use strict;

...
while(my $r = $sth->fetch) {
  print "@$r\n";
}

Select or download this

$ perl /tmp/date.pl
Feb  7 2013  3:06PM