Select Code to Download

    panic: corrupt saved stack index
         (P) The savestack was requested to restore more
         localized values than there are in the savestack.

#!/usr/SD/perl/bin/perl

...

$sth->finish;
$dbh->disconnect;

sub is_router {

...
      if ( $result =~ /winnt/i ) { return 1; };

   }