Два дни ми се налагаше да работя с един отвратителен уж Bourne шел, някаква SysV изгъзица без управление на заданията (не че този долу има, де :). За радост имаше инсталиран Perl. Оттам до идеята да си нахвърля нещо малко и сладко беше само на една крачка. Освен това мога директно да бъркам в карантиите на Perl. Вероятно преоткривам колелото, но все пак съм горд. Ето го творението ми:

#!/usr/bin/perl -n
BEGIN {
    sub prompt {
        print "\n", '@ ';
    }
    sub run {
        $pid=fork();
        if($pid==0) {
            exec("@_");
        }
        waitpid($pid,0);
    }
    prompt;
}
eval;
$@;
prompt;
END {
    print "Terminated by user.\n"
}

17.I.2007 г.
Най-сетне намерих някакъв ksh88, който си има всичко, та грозни хакове като горния вече не са нужни. sh е под всякаква критика. Е, може би е малко по-хубав от моя (но не много :). Нещо не ме кефи тоя HP-UX, ама нали уж тествам…