All pastes #524618 Raw Edit

wegstar

public text v1 · immutable
#524618 ·published 2007-05-31 03:55 UTC
rendered paste body
#!/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.";
	
	}