#!/usr/bin/perl

# Libraries
# ---------
use Getopt::Std;

# Who am I anyway
($me = $0) =~ s/.*\///;

# Check for command line options
$opt_status = getopts('ceflrx:o:');

if (!$opt_status || !@ARGV) {
    print STDERR <<"EOF";
usage: $me < inputfilename > outputfilename
EOF
    exit;
}



$line = <STDIN>;
chomp ($line);

$line = "%!PS-Adobe-3.0 EPSF-3.0";

print ("$line\n");
while ($line = <STDIN>) {
chomp ($line);
print ("$line\n");
}