my $pause = <STDIN>;