#!/usr/bin/perl -s
if ($var1) {print $var1};