# $Id: wpqio.pm,v 1.1 2011/06/03 09:28:47 yason Exp $ # package wpqio; our $DEBUG = 1; # set this to true for verbose output sub print($) { return if !$DEBUG; my $data = shift; print "$data"; } return 1;