Why not just use localtime?

perl -le'print localtime =~ /Fri/ ? "w" : "b", "oohoo"'
[download]

Or:

perl -le'print 5 == (localtime)[6] ? "w" : "b", "oohoo"'
[download]