22 lines
202 B
Perl
22 lines
202 B
Perl
#!/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
|