perl -w filename.pl %*