#!/usr/bin/perl
#currency3.plx
use warnings;
use strict;
print "Currency converter\n\nPlease enter the exchange rate: ";
my $yen = <STDIN>;
print "Please enter the current amount you have: ";
my $current = <STDIN>;
print "$current Yen is ", ($current/$yen), " pounds\n";
print "Please enter your future amount: ";
my $future = <STDIN>;
print "$future Yen is ", ( $future/$yen), " pounds\n";
print "Please enter the amount you wish you had: ";
my $wish = <STDIN>;
print "$wish Yen is ", ( $wish/$yen), " pounds\n";