Help for this page
sub SBS_B2C{ my ($bin_date) = @_; ... print int($year); #output 20041 } SBS_B2C(38112);