Basic bad input example

use Test::More tests => 2;

ok( !open(FILE, "I_dont_exist"), 'non-existent file' );
isnt( $!, 0,                    '  $! set' );

Note: the exact value of $! is unpredictable.