#!/usr/bin/perl -w
use File::Copy;
my $destination = "/root/tmp/";
opendir(DIR, ".");
@files = grep(/\.mp3$/,readdir(DIR));
closedir(DIR);

foreach $file (@files) {
   print "$file\n";

}

foreach $file(@files){
	copy($file, $destination.$file) or die "File cannot be copied.";
	
	}