===== Langsame Ausgabe auf der Console =====

<code>
#!/usr/bin/perl
# slowcat - emulate a   s l o w   line printer
# usage: slowcat [-DELAY] [files ...]
$DELAY = ($ARGV[0] =~ /^-([.\d]+)/) ? (shift, $1) : 1;
$| = 1;
while (<>) {
    for (split(//)) {
        print;
        select(undef,undef,undef, 0.005 * $DELAY);
    }
}
</code>

<code>
cat <File> | perl -e '$|=1;while(<>){for(split(//)){print;select(undef,undef,undef,0.01);}}'
</code>