#!%%PERL5%% -- # -*- Perl -*-
#
# "cat" the input file
#
# $Id: gmat.cat 2.0 1995/04/01 21:09:46 norm Exp $
#
#

$BASEVERS   = "0.1";
$RCS_ID     = '$Id: gmat.cat 2.0 1995/04/01 21:09:46 norm Exp $'; # '
($PROGNAME  = $RCS_ID) =~ s/^.Id: (\S+) .*$/$1/;
($PATCHLEVEL= $RCS_ID) =~ s/^.Id: \S+ \d+\.(\d+) .*$/$1/;
$VERSION    = "$BASEVERS patchlevel $PATCHLEVEL";
$EXECDIR    = ".";
$EXECDIR    = $1 if $0 =~ /^(.*)\/[^\/]+$/;

######################################################################

$file = pop @ARGV;
open (F, $file);
while (<F>) {
    print;
}
close (F);