Y:\>perl
use strict;
use warnings;
print '$varible\n';
^D
$varible\n
Y:\>