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