Help for this page
open (TEST,"test") || die $!; mysub (TEST); ... my $txt = <$fh>; print $txt; }
package mypac; sub mysub { ... package main; open (TEST,"test") || die $!; mypac::mysub ("main::TEST");
www.com | www.net | www.org
No recent polls found
