看看有什么问题？[求助]

看看有什么问题？[求助]
#!/usr/bin/perl
print "where are you?\n","1.home\n","2.outside\n";
my $dns_file="/etc/dns";
my($ip,$netmask,@dns);
if((my $choose=chomp(<STDIN>))==1)
{
  $ip=192.168.1.8;
  $netmask=255.255.255.0;
  @dns=(202.96.128.86,202.96.128.143);
}
if(choose==2)
{
  print "please input you ip:";
  $ip=chomp(<STDIN>);
  print "please input you netmask:";
  $netmask=chomp(<STDIN>);
  print "please input you dns:";
  @dns=chomp(<STDIN>);
}
else
{print "worng choosed\n";}
!system "ifconfig","eth0",ip,"netmask",netmask or die "unknow error\n";
open DNS ">>","dns_file" or die "can't open file:$!";
print "DNS=@dns.\n";
close DNS;
因为其他原因，暂时不能调式，请大家看看有什么问题没有！？谢谢！！
小弟是新手！！