1 2 3 4 5 6
#!/usr/bin/perl @as_list = split(' ',$ARGV[0]); foreach $as (@as_list) { if ($as =~ /[^\d\s]/ || $as < 1 || $as > 65535) { exit 1;} } exit 0;