#!/usr/bin/perl

use lib './lib';
use Digit;

print Digit::middle( undef, $ARGV[0] );
print;