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

while ($fi)
{
print "Please press enter to quit \n";
$fi = <STDIN>;
chomp $fi;
if ($fi eq \n )
{
exit() 
}
}
}
    


##</code><code>##

if ($fi eq \n )