Debugging Perl

$cmd = "$swish $filter | perl extract_stats.pl $operation $num_lines $start_epoch $end_epoch $order_by $idsesion";
print "$cmd\n" if ($idsesion eq "debug");
open (L,"»/tmp/debugFile");
print L $cmd\n;
close L;
system($cmd);