use warnings;
use strict;
use Test::More 'no_plan';

print "Please press enter to quit \n";
my $fi = <STDIN>;
chomp $fi;
  is $fi, "\n",'should fail';
if ( $fi eq "\n" ) {
    exit;
}