cybelechild

#!/usr/bin/env perl

use Test::More tests => 1;
 
my %roman = (1 => 'I', 2 => 'II', 3=> '3', 4 =>'IV', 5 => 'V', 6 => 'VI', 7 => 'VII', 8 => 'VIII', 9 => 'IX', 10 => 'X') ;

 
sub to_roman($val) {
   return $roman{$val};}

cybelechild

#!/usr/local/bin/perl

use 5.012;
use warnings;

say "Just another Perl hacker,";