sub read_file {
          my $file = shift;
          -f $file || return;  #DWIM!

          #Continue reading file...
      }