#!/usr/local/bin/perl -w open( FILE, "output1") ; close(FILE) ;