#! perl -w
die "no name" unless defined $ARGV[0];
$_=$ARGV[0];
die "not dash" unless /[^-]*(-.*)/;
print $1
