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