#!/usr/bin/perl$nsdir = "$ENV{HOME}/ns-allinone-2.28/ns-2.28";$scen = $ARGV[0];shift @ARGV;$args = join(" ", @ARGV);$tag  = join("-", @ARGV);$ns = "$nsdir/ns";$rs = "$nsdir/tcl/ex/run-2Mb.tcl";$md = "$nsdir/tcl/mobility/span.tcl";# Can't get the $scen stuff to work right, just hardcoding the names for now# system("tcsh -c \"cd $nsdir > /dev/null; ($ns $rs -sc $scen -rp $md -usepsm 1 -spanopt 0 -usespan 0 -tr /tmp/$scen$tag-psm.tr $args >! /tmp/$scen$tag-psm.stdout)>&! /tmp/$scen$tag-psm.out\"");system("tcsh -c \"cd $nsdir > /dev/null; ($ns $rs -sc $scen -rp $md -usepsm 1 -spanopt 0 -usespan 0 -tr /tmp/psm.tr $args >! /tmp/psm.stdout)>&! /tmp/psm.out\"");