Help for this page

Select Code to Download


  1. or download this
    open DEBUG, ">", "debug.txt";
print DEBUG  "Begin: Debug " . strftime( '%m-%d-%Y %H:%M:%S', localtim
+e() ) . "\n";
  2. or download this
        my $ok;
    use Archive::Zip;
...
    {
        print DEBUG "End: Populating product names." . strftime( '%m-%
+d-%Y %H:%M:%S', localtime() ) ."\n";
    }
  3. or download this
    if ($debug)
{
...
    print DEBUG "Starting window loop " . strftime( '%m-%d-%Y %H:%M:%S
+', localtime() ) . "\n";
}
$app->MainLoop;