#!/usr/bin/perl -w
use strict;
use Log qw/ :all /;

logit("This is something to log");