#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;

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

##</code><code>##

#!/usr/bin/perl -w

use strict;

use CGI qw/:standard/;

print header(),
  start_html('test');
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();

##</code><code>##

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

##</code><code>##

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