my $script;
while (<DATA>) {
   $script .= $_;
   $script .= qq{print "line $.\\n";\n};
}

eval $script;

__END__

# your script goes here