#!/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);