#!/usr/bin/perl

if( $#ARGV == -1 ) {
    while( read STDIN, $char, 1 ) {
        print $char;
    }

} else {
    if( $#ARGV == 0 ) {
        $limit = 0;
        $file = $ARGV[0];
    } elsif( $#ARGV == 1 ) {
        $limit = $ARGV[0];
        $file = $ARGV[1];
    } else {
        die "Too many arguments, quitting\n";
    }
#die "Open $file with limit=$limit\n";
    open( INPUT, "< $file" ) || die "Can't open $file for input\n";
    while( read INPUT, $char, 1 ) {
        for( $i = 0; $i < $limit; $i++ ) {
            $j = 3;
        }
        print $char;
    }
}