Use a loop. Pehaps something like:
Code:
#!/usr/bin/perl
use warnings;
use strict;
print "Run program? (y/n)"; # ask if we should run program
while(<> !~ /^n/i) { # while our user doesn't reply with a line that starts 'n'
print "\n"; # print a blank line
system ("notepad.exe"); # run program
print "Another? (y/n)"; # ask if we want another instance of the program run
}
--
Charlie Harvey's website - linux, perl, java, anarchism and punk rock:
http://charlieharvey.org.uk
Perl help
