#!/usr/bin/perl -w use strict; print "enter a string to pass to die: "; chomp(my $string = <STDIN>); die($string);