#!/usr/local/bin/perl -w @lines= ; print "@lines"; print"This is new \n"; sleep 60;