sub Lzero {
    my ( $input, $padToLen ) = @_;

    substr( ( '0' x $padToLen ) . $input , -$padToLen );

}