#!/usr/bin/perl -w 

use strict; 

# Flood the STDERR buffer 
foreach (1..5000) { 
    print STDERR "mds \n"; 
} 

# Write out some data 
use CGI; 
my $cgi = new CGI; 
print $cgi->header(); 

print "Hi!\n";