#simplest format if (-e $filename){ if ((unlink($filename)) { print STDERR "File $filename deleted.\n"; }else{ print SDTERR "Couldn't delete $filename $!\n"; } }else{ print STDERR "File didn't exist\n"; }