#!/local/bin/perl

#
# Usage:  slowcat.pl andria.vt
#

$| = 1; # unbuffered output

unshift(@ARGV, '-') if $#ARGV < $[;
while ($ARGV = shift) {
    open(ARGV, $ARGV);
    while (read(ARGV, $_, 1)) {
        print $_;
    }
}