#!/usr/bin/perl -w

foreach (@ARGV) {
    open FILE, $_ or die $!;
    system "chmod", "-v", "u+x", $_ if <FILE> =~ /^#!/;
}