#!/usr/bin/perl

        open (FH,"test.txt");
        close(FH);