~$ perl
$a=42;
print $a;
__END__
42

~$ perl
^[[A^[[A^[[A^C              # Arrow keys no avail

~$