use strict; 
use warnings; 
print "gate1 name \n"; 
my $gate1 = ''; 
chomp($gate1 = <STDIN>); 
print "gate2 name \n";
chomp($gate2 = <STDIN>);