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

filedelete();

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

}