Select Code to Download

}   ## end format time sub
}  <- remove this brace

#!/usr/bin/perl

use strict;
...
    $hash{date} = time_format( 'Day Month dth', $libdate );
    return \%hash;
}