#!/usr/bin/perl $a = ; print $a, "\n";