#!/usr/bin/perl

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

my $base_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper\Wallpaper1.jpg';
my $save_dir = 'C:\Dokumente und Einstellungen\Ricco\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper1.bmp';

opendir (BASE, $base_dir) || die 'Kann Verz. nicht lesen:';
my @dir = grep { $_ !~ /^..?$/ && -f "$base_dir/$_" } readdir(BASE);
closedir (BASE);
foreach my $file (@dir){
copy("$base_dir/$file", "$save_dir/$file");

}