#!/usr//bin/perl -w
# nastavi parameter "executable" pre kazdy subor s priponou "*.pl" v aktualnom
# adresari

@files = glob( "*.pl" );
foreach $name ( @files ){
	if ( not ( -x $name )) {
		`chmod u+x $name`;
	}
};
