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