process( text => 'this is some text' );
process( file => 'foo' );

sub process { my $text;
 if( defined $_{'text'} ) {
  $text = $_{'text'};
 } elsif( defined $_{'file'} ) {
  local $/;
  open IN, $_{'file'};
  $text = <IN>;
  close IN;
 } else { die "Usage"; }
 #proccess $text and return result
}