If you search in supersearch related to local time, you can get more nodes on this.

http://www.perlmonks.com/?node_id=419656

http://www.perlmonks.com/?node_id=409806

Prasad,
if you want to post on-site links in your answer, please follow the guidelines described in What shortcuts can I use for linking to other information?.
Your links will bypass the login-cookie and therefore the follower will end up as Anonymous at the linked page.
Another benefit of using the [id://123456]-form is that linked node titles will be displayed automatically, instead of an undescriptive address.

The links you provided:
Fetching Only Month and Year From localtime()
Re: time() question


holli, /regexed monk/

Why do you post an answer when you don't answer the question? The OP is obviously asking a question related to perl formats. Why are you giving random links about localtime?

pugsly62, if you're listening, you might want to try something along the lines of the following:

format STDOUT_TOP =
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
scalar localtime
.

format STDOUT =
some data here
.

write;
[download]

Update: forgot to mention that I downvoted prasadbabu's post for being a non-answer.

--
edan

The OP is obviously asking a question related to perl formats.

I would not call it "obviously". It can be guessed, yes, but not known. He also might want to put a date in a HTTP-header or something.
The OP should read Tutorials, esp. On asking for help and How to ask questions the smart way (off-site).

Update:
And since you are new to this site pugsly62, the OP is you ,)

Update:
And as for you edan,
it seems encouraging people reading the site-docs is worth the time. This post is nicely asked and well formatted.


holli, /regexed monk/

Thanks everyone...I had been searching diligently through my perl books but I could not find any reference to using functions in headers, thus my question. I'll give your example a try. Thanks! Scott

#! /usr/bin/perl

use Time::localtime;

$day=localtime->yday();
$month=localtime->mon();
$year=localtime->year() ;

$month=+1;
$year +=1900;

$string="Spacley";
@date=("$day","$month","$year" );
write();


format STDOUT_TOP=
Spacely Sprockets Report Beta 1   @##@##@####
 $day ,$month,$year
.
format STDOUT=

@<<<<< @<<<<<<<< @<<<<<<<
$string,$string,$string
.
[download]