#!/usr/bin/perl -w $madonna=<STDIN>; if (defined($madonna)) { print "The input was $madonna"; } else { print "No input available!\n"; }