Select Code to Download

#!/usr/bin/perl

...
    ($one) = $sth->fetchrow_array;
    is( $one, 1, 'select running before fork still works' );
}

# Save existing handler.
my $saved_warn_handler = $SIG{__WARN__};
...

# Restore saved handler.
$SIG{__WARN__} = $saved_warn_handler;