use strict;
use File::Remove qw(remove);

filedelete();

sub filedelete {
   remove \1, 'C:\Entwicklung\Perl\projects\Testen\bla';

}