This is dangerous , filenames can have shell metacharacters in them, don't do this

 
system("cd ".$whereto.";rm -rf ".$filename.";");
[download]

Avoid the shell with Path::Tiny

use Path::Tiny qw/ path /;
path( $whereto, $filename )->remove;
path( $filename )->remove;