#! perl -w

use strict;

use vars qw/$foo/;
$foo = 3;
my $bar = 4;

sub reality_test {
    my ( $var_name , $bound ) = @_;
    my $var = eval $var_name;
    die "$var_name is not syntactically correct: $@\n" if $@;

    print "'$var_name' was less than allowed\n"
        if $var < $bound;
}

reality_test( '$foo' , 10 );
reality_test( '$bar' , 10 );