Help for this page

Select Code to Download

Select or download this

my $val;
my $stmt = q{$val = (defined $ENV{HOST} ? $ENV{HOST} : 'sqlhost')};
...
    {
        print $val, "\n";
    }

Select or download this

my ($r, $stmt);

...

__DATA__
$r = (defined $ENV{HOST} ? $ENV{HOST} : 'sqlhost')