#!/usr/athena/bin/perl

require '/mit/mkgray/perl/io.pl';

$script = &io'gettext();

if(-e '/tmp/tp'){`rm /tmp/tp`;}
open(SCR, "> /tmp/tp");
print(SCR '#!/usr/athena/bin/perl');
print(SCR "\n");
print(SCR "\n$script\n");
close(SCR);
`chmod 777 /tmp/tp`;
print(`/tmp/tp`);