#!/usr/local/bin/perl -w

=pod

=head1 NAME 

$Id$

=head1 VERSION

$Revision$

=head1 DESCRIPTION

$Header$

=head1 REVISIONS

$Log$

=cut

$in = shift;
open(IN,"<$in") or die "Cannot open $in: $!\n";
while(<IN>){
	# meow
	print $_;
}