#!/usr/local/bin/perl
use strict;
use warnings;

my $data = do { # hand-coded slurp
    open my $fh, '<', $0 or die "'$0' : $!";
    local $/;
    my $str = <$fh>;
    close $fh;
    $str;
};

print $data;