#! /usr/local/bin/perl

$command =$ARGV[0];
print $command;
if ($command eq "") {$command = "nullcommand";}

opendir(CALLS, "." ) || die "no dir .";
        foreach $fn (sort readdir(CALLS)) {
	    if (!($fn  =~ /^\./)  && !(-d $fn)){
		print " $command $fn \n";
		system " $command $fn ";
	    }	    
        }
closedir(CALLS);
