Select Code to Download

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