#!/usr/bin/perl

use strict;
use warnings;
use Text::Table;

my $tb = Text::Table->new(
         "ID", "DESCRIPTION", "QTY", "PRICE"
);
$tb->load(
        [ "1 los", "LABOR ON PARTS", 1, '760.00' ],
        [ "2 sa", "STRIP", 1, '450.00' ],
        [ "3 av", "VALUE", 1, '2000.00' ],
);
print $tb;