unlink <*.*> or die "can't delete files\n";

for(<*.*>){
  if(unlink $_){
    print $_," deletedt\n";
  }
  else{
    print  "can't delete ",$_,"\n";
  }
}

unlink <*.*> or print "can't delete files\n";

unlink <*.*> or warn "can't delete files\n";

for (<*.*>){
    eval {
    unlink $_;
    };
    print $@ if($@);
}

eval {
  if ($x == 1) {
    die "1\n";
  }
  else {
    die "2\n";
  }
};
if ($@) {
  if ($@ eq "1\n") {
    print "Exception1\n";
  }
  elsif ($@ eq "2\n") {
    print "Exception2\n";
  }
  else {
  ....
  }
}

use PException;
  try {
                throw( AnException->new() )     if $something;
                throw( AnOtherException->new( [] ) )
                        unless  $anotherthing;
        }
        catch   AnException( sub { } ) ,
        onfly   AnOtherException( sub { } );