use Getopt::Std;
use vars qw($opt_v $opt_w $opt_h);
getopts('v:w:');
if ( $opt_v =~ m/^\d{6}$/ ) {
  print "INFO: Eingabe ist richtig!\n";
}
else {
  print STDERR "Leider falsch!\n";
  exit 1;
}