#!/usr/bin/perl $x = "moo"; if ($x == "") { print "Please supply input.\n"; } else { print "You wrote '$x'\n"; }