1#!/usr/bin/perl 2 3use strict; 4 5package Frotz; 6sub new { 7 my $class = shift; 8 return bless {}, $class; 9} 10 11__END__ 12=head1 NAME 13 14frotz - Frotz 15 16=head1 SYNOPSIS 17 18 use frotz; 19 20 $nitfol = new Frotz(); 21 22=cut
#!/usr/bin/perl
use strict;
package Frotz;
sub new {
my $class = shift;
return bless {}, $class;
}
__END__
=head1 NAME
frotz - Frotz
=head1 SYNOPSIS
use frotz;
$nitfol = new Frotz();
=cut