#!/tool/bin/perl -w use lib '/home/user_foo/perl_modules/lib/perl5'; use List::MoreUtils qw(uniq); use File::Copy;