#!/usr/bin/perl -w
use strict;

$_='p
rint "Hello\n"';
eval;