experiment/carp.pl

   1 #!/usr/local/bin/perl
   2
   3
   4 use Carp ;
   5
   6 $carp = shift ;
   7
   8 ( ( $carp eq 'carp' ) ? \&carp : \&croak )->( "can't open file\n ) ;
   9
  10 print "ok\n" ;