#!/usr/bin/perl
use warnings;
use strict;

my $age;
my $group;
my $total;

print "Cost: £5 if aged 15 or under £2.50, aged 60 or over £3.00, Group Discounts are  20% off for groups of 6 or more.";

print "How old are you? ";
$age = <>;
print "User age is $age";

print "How many people are there";
$group = <>;
print "group number is $group";

$total = $group*