This is similar to an issue I used to deal with using Turbo C++ for DOS programs. The solution there was a getch() statement, so I suggest doing the same thing. That is, at the end of your script add:

print "Press <Enter> To Continue...";
my $in = <STDIN>;
[download]