javascript in perl

js.pl

use strict;
use warnings;
use subs::auto;

my %vars;
sub var (*) :lvalue {
	my $var = shift;
	no strict 'refs';
	no warnings 'redefine';
	*{$var} = sub { (\%vars)->{$var}; };
	$vars{$var};
}
sub alert { print @_, "\n" };

var foo = 'bar';
alert(foo);