my $host;
my $pass;

while(my $arg = shift @ARGV) {
  for ($arg) {
    if (/-h|--host/) {
      $host = shift @ARGV;
    }
    elsif (/-p|--pass/) {
      $pass = shift @ARGV;
    }
  }
}