Select Code to Download

#!/usr/bin/perl
use strict;
...
        timestamp      => ( $date->dmy('-') . ' ' . $date->hms ),
    };
}

>perltidy -pbp tidy_align.pl
#!/usr/bin/perl -w
...
        timestamp => ( $date->dmy('-') . ' ' . $date->hms ),
    };
}