#!/usr/bin/perl $a = ; print $a;