#!usr/bin/perl5.26.1
use strict;
use IO::Select;
use Text::ASCIITable;

$|=1;

my $t = Text::ASCIITable->new({ headingText => 'Basket' });
  
$t->setCols('Id','Name','Price');
$t->addRow(1,'Dummy product 1',24.4);
$t->addRow(2,'Dummy product 2',21.2);
$t->addRow(3,'Dummy product 3',12.3);
$t->addRowLine();
$t->addRow('','Total',57.9);

print STDOUT $t ."\n";


### print "checking pipe\n";  #<====  HERE
my $s = IO::Select->new();
$s->add(\*STDIN);

if ($s->can_read(.5)) {
     print STDOUT "reading from pipe data\n";
}