perl -MDBUtil -e 'clone(arg1 arg2 arg3)'

or

perl -MDBUtil -e 'clone(@ARGV)' arg1 arg2 arg3

##</code><code>##

#!/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
}

##</code><code>##

#!/usr/bin/perl
use DBUtil;
clone(@ARGV)