#!/usr/bin/env perl for (@ARGV) { die "Not oll korrect!\n" if system $^X, '-c', $_; } exit(0);