23 lines
		
	
	
		
			202 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			23 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
 |