#If they arguments are in @ARGV
while (shift){
($arg,$val)=split /=/;
$args{$arg}=$val;
}