Select Code to Download

#! /usr/bin/perl
use warnings;
...
}

amnt(1/3);

2 I'm checking amount before padding
0000000000000001 I'm checking amount after padding