#!/usr/bin/perl 

use strict;  
use warnings;

one: 
print "Filename: ";
chomp(my $filename = <STDIN>);
my @quotes;
open FILE, '<', $filename;
if(! -e FILE){
  print ":: $filename does not exist.\n:: Please enter correct filename.\n";
  goto one;
}
else{           
  while(<FILE>){
    chomp;
    push(@quotes, $_);
  }
  print $quotes[int(rand(scalar(@quotes)))] . "\n";
}