#!/usr/bin/perl -w -I ./lib

use 5.018;

use strict;

use Carp;

use Narwhal;

sub main() {
    my $narwhal = Narwhal->new();
    if($narwhal) {
        $narwhal->begin();
        $narwhal->parse();
        $narwhal->proc_preset();
        system($narwhal->soxi());
    }
}

main();