#!/usr/local/bin/perl for (1..10) { system("some_long_running_shell_command"); } some_other_stuff();