Select Code to Download

#!/usr/bin/perl -w

...

print "Content-type:text/html\n\n";
print $variable;

$v1 = 'something';
.....
$variable = 'hello world';
$flag = 0;

$v1 = 'something';
.....
$variable = 'hello world';
$flag = 1;