package mypack;


sub wrstr
{
 my ($fd, $str) = @_;
 print $fd "$str\n";
}




1;