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

open my $fh, "/etc/shadow" or warn  my_warn() ;

open  $fh, "/etc/shadow" or die die_hard() ;

sub my_warn { print "SHE can't take it much longer captian!\n"; }

sub die_hard { print "OH NO CAPTAIN SHES BREAKING UP\n"; }