Output along with the template
#!/bin/perl
$name="Tommy";
$age=25;
$salary=50000.00;
$now="03/14/97";
# Format Template
format STDOUT=
---------------------REPORT-------------------------
Name: @<<<<<< Age:@##Salary:@#####.## Date:@<<<<<<<<<<
$name, $age, $salary, $now
.
# End Template
write;
print "Thanks for coming. Bye.\n";
Related examples in the same category