Select Code to Download

#!/usr/bin/perl -T
#
...
{
   print header('text/plain'),"Bad image name - try again";
}