#!/usr/local/bin/perl

open (OUTFILE, ">temp") || die ("Can't open output");
while ($line = <STDIN>) {
        print OUTFILE ($line);
}
close (OUTFILE);
exec ("13a02a.txt");
