#!/usr/bin/perl

package DBUtil;

# run main if called with command line args
# will not execute when called as a module (no cmd line args)
main() if @ARGV;

sub main {
    # blah
}