sub :: {return lc pop}
sub jonadab {
   my $lex = shift;
   @ARGV=qw(http://);
   return sub{
     my ($ical) = @_;
     my $closure = :: $lex.".".$ical."/".$/;
}}
my $foo = jonadab("PerlMonks");
$\=$foo->("Org");
print shift;