#!/usr/bin/perl
use warnings;
use strict;
my $product = 'Product Name';
my $price = 99.00;
my $number = '111';
write();
$product = 'PC';
$price = 550.34521;
$number = '222222';
write();
$product = 'House';
$price = '5';
$number = '111111';
write();
format STDOUT_TOP =
Product Price ID Number
---------------- --------- ---------
.
format STDOUT =
@<<<<<<<<<<<<<<<<<<<< $@####.## @<<<<<<<<
$product, $price, $number
.