perl -e << X
$var = 13;
...
X