Here, hacker - try this standalone script:
my $beamable = $ARGV[0];
if ($beamable && ($beamable =~ /(1|true|yes)/i)) {
$beamable = '--beamable';
$beamable_msg = "Yes, beamable";
print "In clause 1\n";
} elsif ($beamable && ($beamable =~ /(0|false|no)/i)) {
$beamable = '--not-beamable';
$beamable_msg = "No, copy-protected";
print "In clause 2\n";
} else {
$beamable = '';
$beamable_msg = "Unspecified, defaults to beamable";
print "In clause 3\n";
}
print "At the end, beamable is $beamable and the msg is $beamable_msg\
+n";
|