use File::Copy;
...
move($newname, '/tmp/trashed') or die "Failed to move file: $!\n";