use Term::ReadKey;
ReadMode(4);
my $input = lc(ReadKey(0));

if ($input =~ m/r/)
{
     &subroutine1;
}

ReadMode(0);
exit;