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

sub my_open {
    open FH, '<', $0 or die $!;
}

sub my_read {
    print scalar <FH>;
}

my_open();
my_read();

__END__