Help for this page
use warnings; use strict; ... my $test = Test->new('steve', '/home/', 'perl'); print Dumper $test;
sub new { my $obj = bless {}, shift; ... return $obj; }
www.com | www.net | www.org
No recent polls found