Select Code to Download

sub DeleteFile()
{
...
   $ret = unlink $FileName;
   die "No file called [$Filename] deleted\n" unless $ret == 1;
}

sub DeleteFile()
{
...
   die "No file called [$Filename] deleted\n" unless 
      unlink $FileName;
}

sub DeleteFile()
{
...
   warn "No file called [$Filename] deleted\n" unless $ret;
   return $ret;
}