#!/usr/bin/perl -p
BEGIN{*ARGV=*DATA}

__DATA__
hello
world