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