programming-examples/perl/SystemFunction/Using die to ouput error message.pl

#!/usr/bin/perl -w

use strict;

print "enter a string to pass to die: ";
chomp(my $string = <STDIN>);

die($string);