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

open (FILE,"< $0 ") or die "Couldn't open: $!";

# check the difference between these two lines
my $text = do {local $/; <FILE>};
#my $text = <FILE>;

close FILE;
print "$text\n";