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