path: root/challenge-135/lance-wicks/perl/ch-1.pl

#!/usr/bin/perl

use lib './lib';
use Digit;

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