Perl-snippets.pl

# run external cmd and dump its output in ~realtime
sub run_or_die {
    my $cmd = shift;
    
    local $| = 1;
    say "[cmd]: $cmd";
    open my $hp, "$cmd |" or die "$!\n";
    while (<$hp>) {
        s/\r|\n//g;
        say;
    }
    close $hp;
    die "[$?] $!\n" if $? >> 8;
    say '';
}