#!/usr/bin/perl -wuse strict;print "Currency converter\n\nPlease enter the exchange rate: ";my $yen = ;print "49518 Yen is ", (49_518/$yen), " dollars\n";