#!/usr/bin/perl -w
use strict;
$someperl=<DATA>;
__DATA__
Some data