open($fo,"<", $ggg)  


##</code><code>##


     { "\n\n$ggg is missing:\nensure that this file is in the working dir.\nWe are exiting \n\n";
    print "Please press q to quit \n";
my $fi = <STDIN>;
chomp $fi;
if ($fi eq "q" ||$fi eq "Q")
{
 exit;
}
else
{

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