#!/usr/bin/perl -w
use warnings;

BEGIN {
  use Lingua::EN::Words2Nums;
  $SIG{__WARN__} = sub {
    if ($_[0] =~ /Name "(.*)" used only once/) {
      my $var = $1;
      my ($num) = $var =~ /::(\S+)/;
      $num =~ tr/_/ /;
      $$var = words2nums($num);
    } else {
      warn @_;
    }
  };
}

print $five + $seventeen, "\n";