package QuietMode;
use strict;
use File::Spec;
sub new
{
my $class = shift;
my $self = bless {}, $class;
my $devnull = File::Spec->devnull();
open(STDOUT, ">$devnull");
return $self;
}
package main;
print "This is a pen.\n";
QuietMode->new;
print "This is a pencil.\n";
2004-08 / 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31