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

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

sub my_read {
    print scalar <$fh>;
}

my_open();
my_read();

__END__