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";
[download]