11 $slicename = $ARGV[0];
12 $portnumber = <STDIN>;
16 if ($portnumber!~/^\d+$/) {
17 die("$portnumber is not a port number");
20 open CMD,"/sbin/fuser -n tcp $portnumber 2>&1|";
28 system("cat /proc/$ports[1]/vinfo");
29 print "Please refer to http://planetflow.planet-lab.org/lookupslice.php to obtain the name corresponding to this slice.";