require "mypack.pl";



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


open(FD,">","dummy");
wrstr(FD,"12345");
mypack::wrstr(FD,"12345");

close FD;