while(@ARGV){
   my $argin = shift;
   while ($argin =~ /^-/) {
     $argtype=$argin;
     $argin=shift;
   }
   if ($argtype =~ /^-t/) {$TARGET.=" $argin"}
   if ($argtype =~ /^-r/) {$RELEASE.=" $argin"}
   if ($argtype =~ /^-b/) {$BUILDTYPE.= " $argin"}
}