#!/bin/perl
# Script ex10.pl
$vat = 17.5;
print " Non-VAT     VAT    Amount Entered\n";

while ($amount  =  <STDIN> ) 
{
$line ++;
if ( $amount !~ /^[0-9]*$/ ) {
	print "Error encountered on input line number ", $line, "\n";
	last;
} else  {
	$Vat = ( $amount - ($amount * 100 / (100 + $vat)));
	$Nonvat = ( $amount - $Vat );
	printf("%8.2f %8.2f %8.2f\n", $Nonvat,  $Vat, $amount);
}}