#!/usr/local/bin/perl open (MYFILE, '2.pl'); print ; close (MYFILE); #### #!/usr/local/bin/perl open (MYFILE, '2.pl'); print ; close (MYFILE);