#!/usr/bin/perl -w
#
use diagnostics;
use strict;
use warnings;
use File::Copy;
#
copy("*.txt", "DIR1");
copy("one.txt", "DIR2")