#!/usr/bin/perl -w
#currency2.plx
use warnings;
use strict;
print "Currency converter\n\nPlease enter the exchange rate: ";
my $yen = <STDIN>;
print "Now please enter a price to convert\n";
print "Price:";
my $price = <STDIN>;
print "$price Yen is ", ($price/$yen), "pounds\n";