The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;

# Prints a simple greeting.
# Exits with the argument provided, or 0 by default.

print "Hello\nGoodbye\n";

exit($ARGV[0] || 0);