############################## 
if ($^O =~ /Win/i) {
 sub print {your sub.....}
}

else {
sub print {return}
}
##############################