#!/usr/bin/perl
print "\$a = ";
$a = <>;