my $loglevel;

$loglevel++ if -t STDOUT;

print "Log level is $loglevel\n";