Perl removing the files using system command returns success always

Question

I have a script which takes filenames (with its full path) as an arguments and deletes them from the system.

Here is the code:

#!/usr/bin/perl

use str