print "Insert blank cdrom ,press enter\n" 
     {
       local *STDIN;
       open( STDIN, "< /dev/tty" );
       my $ok = <STDIN>;
     }