Select Code to Download

#!/usr/bin/perl 

...
}

1;

#!/usr/bin/perl

...
$pts_obj->Print( 1, "Message with level 1! :-)\n");
$pts_obj->Print( 2, "Message with level 2! :-)\n");
$pts_obj->Print( 3, "Message with level 3! :-)\n");

#!/usr/bin/perl

...
$pts_obj->Print( 3, "About to connect to mysql-database... ");
#connect blablabla
$pts_obj->Print( 3, "Done!\n");