#!/usr/local/bin/perl -w
use strict;

open (LARGE_FILE, ">large_file.txt");

for ( 1 .. 10000){
        print LARGE_FILE "dummy line...dummy line...dummy line...dummy line...dummy line...dummy line...dummy line...\n" or print STDERR "i caught the error!\n";
}