system("echo y | pause");
__DATA__
C:\WINDOWS\Desktop>perl echo.pl
Press any key to continue . . .


C:\WINDOWS\Desktop>