Select Code to Download

use strict;

Global symbol "$xxx" requires explicit package name at ./tst line 5.

# Change this:
$string = "hello world";
...
while ($sth->fetch) {
 print "F1: $field1 F2: $field2\n";
}

use warnings;

#!/usr/local/bin/perl -w

...
$^W = 1;
# Or
BEGIN { $^W = 1 }

# Change this:
...
 local $^W;
 $_[0] + $_[1];
}