#!/usr/bin/perl -w use strict; my $eq = ; print eval $eq, "\n";