my $main::conf;
unless ($::conf = do ('/home/4220/straitwa/www.straitway.net/shop_34/con
+f.pl')) {
  die ("Could not open config file");
}