print "X done. Y starting in 15 seconds. Press any key to do Z instead.\n";
my $selection=ReadKey(15);
if ($selection)
{
     # Key pressed. Do Z.
}
else
{
    # No key pressed. Do Y.
}