print "Please press enter to quit \n";
my $fi = <STDIN>;
chomp $fi