Select Code to Download

#!/usr/bin/perl -w
my  $text = $ARGV[0];     
...
close ( OUTFILE );          # close output file

    my @args = (   # This is line 54
        '/home/myname/public_html/MyTest/prn_to_file.pl', $param1,
...

    system(@args) == 0 or die "Code does not work $!";

Testing System/Exec function with CGI
This text _should_ be printed to the file : 
...
Code does not work Bad file descriptor at /home/myname/public_html/MyT
+est/cgi-bin/test.cgi line 54.

For help, please send mail to the webmaster (webmaster@cheers.com), gi
+ving this error message and the time and date of the error.