You should also check the exit status of the external command run. You can get that by querying:

if (my $exitstatus=($?>> 8 ) == 0){
   # All is well
}else{
   die "ERROR: Returned $exitstatus from shell";
}
[download]

See "$CHILD_ERROR or $?" in perlvar.