15 lines
336 B
Perl
15 lines
336 B
Perl
|
#!/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";
|