my $application = "nmap"; my @args = qw !--stylesheet nmap.xsl!; while (1) { system $application, @arg and die; }