#!/usr/bin/perl --
use Devel::Peek qw/ Dump /;
select STDERR;
print "\n\$ARGV\n";                  Dump( $ARGV );
print "\nundef\n";                   Dump( undef );
print "\n!!0 PL_sv_no\n";            Dump( !!0 );
print "\ndefined undef\n";           Dump( defined undef );
print "\n!!1 PL_sv_yes\n";           Dump( !!1 );
print "\ndefined defined undef\n";   Dump( defined defined undef );
__END__