#!/usr/bin/perl -w
#
#   Produce some output.
#
#===

my $str  = $0;     $str  = $ARGV[0] if (defined($ARGV[0]));
my $flag = "";     $flag = $ARGV[1] if (defined($ARGV[1]));

print("[$str]: this is stdout\n");
warn("[$str]: THIS IS STDERR\n");
die if ($flag =~ m/fatal/i);