Help for this page

Select Code to Download


  1. or download this
    use IPC::Run qw/start/;
my $h = start ['play','-q','/tmp/sound.wav'];
...
}
$h->finish;
print "finished!\n";
  2. or download this
    use IPC::Run qw/start/;
my $h = start ['play','-q','/tmp/sound.wav'];
...
}
$h->finish;
print "finished!\n";