#!/usr/bin/perl -w
use strict;

open (IN, "somefile") || warn "unable to open somefile";

open (IN, "somefile") || hey_do_something();

sub hey_do_something
{
   print "some stuff in a sub\n";
   print "more stuff in a sub\n";
}