#!/usr/bin/perl
use Strict;
my $filename = 'file.txt'
my @text;
open FILE, '<', $filename;
if(! -e FILE){
  print "$filename does not exist.\n:: Please enter correct filename.\n";
  die
}
else etc...