I am trying to get $sn to print but suspect something in this code is amiss?

my($sec,$min,$hour,$mday,$mon,$year) = localtime(time); $sn = sprintf("%04d%02d%02d%02d", $year + 1900, $mon + 1, $mday, 1) }

My perl is.... well that good... but I'm going to hazard a guess you're
trying to assign the output of the sprintf, but you need to tell it to
evaluate the expression otherwise it'll just go and assign that lot as a massive string starting with sprintf?

Spec

*** THE READER V4.50 [freeware]

--- SuperBBS v1.17-3 (Eval)
* Origin: Scrawled in haste at The Lower Planes (21:3/101)