#!/usr/local/bin/perl5.8 -w
use strict;

print "Currency Converter\n\nPlease enter the ex rate: ";
my $yen = <STDIN>;

print "\nEnter a price to convert: ";
my $price = <STDIN>;

print "$price Yens ", ($price/$yen), " pounds\n";