Dear Monks

I was just learning about formats and I was wondering if you could explain why the header in the code below displays in the file but not at the console

# open up MYFILE for writing
open(MYFILE,">myfile.txt") or die "Can't open up myfile: $!\n";

my ($name,$age, $salary) = ('girl', '21', '12');


# now this line format will automatically apply to MYFILE
format MYFILE = 
@>>>>>>>>>>>>>>>>>>>>>>>>>>>>        @>>>>>>>>>>>>>>
$name,                               $salary
.



 

format MYFILE_TOP =
-----------------------------------
Name                 Salary
-----------------------------------
.


write MYFILE; select(STDOUT);

$~ = "MYFILE"; 
write; #write to STDOUT
[download]

thanks