system returns a value of 0 when the command was successful. In your case, system returns 0 because it was successful so warn gets run. To solve the problem, check to see if the value is 0 like so:

system( $excel, $excelfilename) == 0 or warn ".....";
[download]

This should produce the right results. See the perlfunc on system for more information.