Select Code to Download

#!/usr/bin/perl -w

...
warn("x =$x");
print("Hello\n");
#print param('name')."\n";

#!/usr/bin/perl -w

...
print h1(system("./test7.pl name=5 val=3 x=13 > temp.dat; mv temp.dat 
+temp1.dat"));
print h1(system("./test7.pl name=5 val=4"));
print end_html();

x =name=5;val=3;x=13 at ./test7.pl line 8.
x =name=5;val=4 at ./test7.pl line 8.

sh: line 1: temp.dat: Permission denied
mv: temp.dat: No such file or directory
x =undefined at ./test7.pl line 8.