#!/usr/bin/perl

use CGI;
use CGI::Carp 'fatalsToBrowser';
CGI::ReadParse(*in);

$foo = $in{'name_of_first_field'};
$bar = $in{'name_of_second_field'};

$withspace = "${foo}${bar}";
$withoutspace = "$foo $bar";
[download]

print "$withspace\n";
print "$withoutspace\n";
[download]

#!/jpsama/bin/perl -w
$tks = `mount`;
$jpsama = $! if $!;
print $jpsama;