#!/bin/perl
# Script ex10.pl
if (open (VATREP, ">vatreport")) {
$vat = 17.5;
print VATREP " Non-VAT     VAT    Amount Entered\n";

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