#!perl
while (<DATA>) {
  print;
}
__END__
Hello, world!