#!/usr/bin/perl my $s = <>; print "Hello World!\n"; exit;