my %systems = ( box1 => 1, box2 => 2 );

my $Usage = "Usage:  $0  (" . join('|', sort keys %systems) . ")\n";

die $Usage unless ( @ARGV == 1 and $systems{$ARGV[0]} );

$system1 = lc( shift );