Index: lang/perl/autobox-Numeric-Bytes/trunk/sample/unitary
===================================================================
--- lang/perl/autobox-Numeric-Bytes/trunk/sample/unitary (revision 11280)
+++ lang/perl/autobox-Numeric-Bytes/trunk/sample/unitary (revision 11293)
@@ -3,5 +3,5 @@
 use UNIVERSAL::require;
 die q{[usage]
-$ unitary '2->megabytes' '3->days'
+$ unitary '2->megabytes' '3.days'
 2097152
 259200
@@ -11,3 +11,9 @@
     push @modules, $m if $m->require;
 }
-print eval(join('; ', (map "use $_", @modules), $_))."\n" for @ARGV;
+my $use = join '', map {"use $_; "} @modules;
+for (@ARGV) {
+    s/^(\d+(?:\.\d+)?)\.([a-zA-Z]+)$/$1->$2/; # transform N.unit to N->unit
+    my $e = "$use $_";
+    # warn $e."\n";
+    print eval($e), "\n";
+}