1#!/usr/bin/env perl 2# -*- cperl -*- 3 4# Copyright (c) 2007 MySQL AB 5# Use is subject to license terms. 6# 7# This program is free software; you can redistribute it and/or modify 8# it under the terms of the GNU General Public License as published by 9# the Free Software Foundation; version 2 of the License. 10# 11# This program is distributed in the hope that it will be useful, 12# but WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14# GNU General Public License for more details. 15# 16# You should have received a copy of the GNU General Public License 17# along with this program; if not, write to the Free Software 18# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1335 USA 19 20use strict; 21use Getopt::Long; 22 23my $opt_exit_code= 0; 24 25GetOptions 26 ( 27 # Exit with the specified exit code 28 'exit-code=i' => \$opt_exit_code 29 ); 30 31 32print "Hello stdout\n"; 33print STDERR "Hello stderr\n"; 34 35exit ($opt_exit_code); 36 37 38