Help with code.

[viZi0n]

i am new to cgi and was wondering if anyone could help me with this code.

#!/usr/local/bin/perl -wT
use strict;
my ($sales_Jan, $sales_Feb, $sales_Mar,
$sum_1Q, $label_1Q);

$sales_Jan = 5467;
$sales_Feb = 234;
$sales_Mar = 8875;
$sum_1Q = $sales_Jan + $sales_Feb +
$sales_Mar;
$label_1Q = 'first quarter';

print "Content-type: text/html\n\n";
print "Sales for the $label_1Q were
$sum_1Q";

[CyCo]

Your script seems OK to me. What problem are you having? It outputs:

Sales for the first quarter were 14576

...just as one would expect.

[viZi0n]

i get internal server error. and i know i have my permissions on execute.

[CyCo]

Is the path to perl correct?

#!/usr/local/bin/perl -wT

[viZi0n]

yes

[CyCo]

...try removing the "T"...

#!/usr/local/bin/perl -w

depending on your server configuration, some hosts don't allow the "taint" switch

[viZi0n]

that didnt work either....im going to ask my teacher to look at it.

[CyCo]

Well, as long as you uploaded the script in ASCII mode, set the permissions to 755 and have the correct path to perl, it should be fine...