指定したファイルを、カレントディレクトリ直下の全ディレクトリにコピーする

ctfed.pl

#!/usr/bin/perl

binmode STDOUT,":utf8";

use strict;
use warnings;
use utf8;
use File::Copy;

my $file = $ARGV[0];

unless($file){
    print "コピーしたいファイル名を指定してください\n";
    exit;
}

while(<./*>){
       if($_ !~ /\./){
           copy "./$file", "./$_/$file" or die $!;
       }
}