Null.pm   [plain text]

package Dev::Null;

use strict;

sub TIEHANDLE { bless {}, shift }
sub PRINT { 1 }

1;