1 2 3 4 5 6 7
#!/usr/bin/perl use lib './lib'; use Digit; print Digit::middle( undef, $ARGV[0] ); print;