#!/usr/bin/perl

use strict;
use warnings;
{
    my $a = 20;
    my $b = 20;
    my $c = 'dog';
    open IN, "<", 'tmp/tmp.dat' or die "can't open file\n";
    while (my $line = <IN>){
        my $statement = $line;
        chomp ($statement);
        print "$statement\n";

        ##Less confusing?
        if (eval($statement)){
            print "true\n";
        }
    }
}