Select Code to Download

#!/usr/bin/perl
use strict;
...
END {
    unlink $svitok_truby;
}

my @args = ('/usr/bin/mplayer', '-slave', '-input', "file=$svitok_trub
+y", $svitok_na_vosproizvedenie_kom[$i]);

perl -E'$|=1;print,sleep 1 for 0..9' | perl script.pl