perl: howto print to screen & filehandle

Shell Programming and Scripting
1

Hello,

I need to print messages both to screen and to file handle in perl , like tee does in unix .
Any suggestions ?

Thanks

2

Is this what you mean?

$messages = "This is some message!!\n";
$messages .= "Another message!!\n";

$filename = "/some/dir/file.log";

open (FILE, "< $filename" ) or print " Error \n";
 print FILE $message;    #Sends message to {$filename}
 print $message;         #Sends message to Screen
close FILE;

Would write:
This is some message!!
Another message!!

To file and screen.

3

check if this helps