my $service = shift; my ($action) = $0 =~ m![^/]+)$!; # corrected per reply $service =~ tr~/~~d; die "$service: No such service" unless -x "/etc/rc.d/init.d/$service" && -f _; exec("/etc/rc.d/init.d/$service", $action) or die "exec: $!";