Select Code to Download

#!/usr/bin/perl -wT
use strict;
use lib '/home/4220/straitwa/www.straitway.net/shop_34/lib';
...
print "Print - ", $one, " - from the main package\n";

Shop::db_connect;

package Shop;

use strict;
...
}

1;

Print - straitway_1 - from the main package
Use of uninitialized value in print at /home/4220/straitwa/www.straitw
+ay.net/shop_34/lib/Shop.pm line 13.
Print -  - from the Shop package