#!/bin/perl
#printfexample.pl
$vat=17.5;
print "Enter a whole nummber of pounds sterling: ";
$var1 = <STDIN>;
$var2=( $var1 - ($var1 * 100 / (100 + $vat)));
printf " Amount entered was %5d and the VAT is %6.2f\n",$var1,$var2;