#!/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";