#!bin/bash
 
perl Perltcp.pl outudp.tr 4  0.5 > tcp-udp-one.tr
perl Perlcbr.pl outudp.tr 5  0.5 > tcp-udp-two.tr 

xgraph -bg white tcp-udp-one.tr tcp-udp-two.tr &

perl Perltcp.pl outtcp.tr 4 0.5 > tcp-tcp-one.tr
perl Perltcp.pl outtcp.tr 5 0.5 > tcp-tcp-two.tr

xgraph -bg white tcp-tcp-one.tr tcp-tcp-two.tr &