Select Code to Download

#!/usr/bin/perl -l
use strict;
...

print '$foo is ', defined $foo ? "defined" : "not defined";
print '$bar is ', defined $bar ? "defined" : "not defined";

$foo is defined
$bar is not defined