my $args = { @_ };
#Check for required values
foreach my $required qw(arg1 arg2 arg3) {
    if(!defined($args->{$required})) {
         carp("Required value $required missing\n");
         return undef;
    }
}