my $max_start = 5;  # maxcimal 5 Versuche zu starten
my @args = @ARGV;   # Programm, das gestartet wird

do {
  system @args;
} while ( $? != 0 and --$max_start != 0);

# hier Mail senden

...
1;