Select Code to Download

#!/usr/bin/perl

use strict;
...
print "My PID is *$pid*\n";
sleep 5;
kill $pid;

ra@eagle ~/Local/Code/amudclient/test/playsound $ ./playsound.pl
My PID is *21417*

...
  Duration: 00:00:30.07  Title: This Week in Trek Episode 309

In:17.6% 00:00:05.29 [00:00:24.77] Out:233k  [     =|=     ]        Cl
+ip:0

ra@eagle ~/Local/Code/amudclient/test/playsound $ ./playsound.pl
My PID is *21364*

...

In:17.0% 00:00:05.11 [00:00:24.96] Out:225k  [ -====|====- ]        Cl
+ip:0    raIn:28In:In:In:29.7%In:3In:3In:In:In:32In:InInIn:46.6% 00In:
+47.3% 0In:47InIn:100%  00:00:30.07 [00:00:00.00] Out:1.33M [   ===|==
+=   ]        Clip:0     
Done.