Select Code to Download

$ ./11.clone.pl 2.med 1.english 1.pop
-------------
making directories
...
$ 

$

my ( $from, $to, $pop ) = @ARGV;
say "argv is @ARGV";

my $encoded_from = url_encode($from);
say "encoded cyrillic is $encoded_from";
$from = Encode::decode( 'utf8', uri_unescape($encoded_from) );
...
say "encoded cyrillic is $encoded_pop";
$pop = Encode::decode( 'utf8', uri_unescape($encoded_pop) );
say "pop is $pop";

$ pwd
/home/bob/1.scripts/pages/2.дом
$ ls
2.дом1.html  2.дом1.pl.bak  2.&#10
+76;ом3.html  2.дом5.html  template_stuf
+f
2.дом1.pl    2.дом2.html    2.&#10
+76;ом4.html  2.дом6.html