Select Code to Download

uuse strict;
use warnings;
...
ok(var_exists('$var1'),  'var1');
ok(var_exists('$var2'),  'var2');
ok(!var_exists('$var3'), 'var3');

1..3
ok 1 - var1
...
#   at a.pl line 20.
ok 3 - var3
# Looks like you failed 1 test of 3.