#!/usr/bin/perl

use strict;
use warnings;

my $file = '/DEPENDENCIES.NEW';

open FILE, '>', $file 
    or die "Couldn't open FILE: $!\n";
if ( tell(FILE) != -1) {
    print "FILE is open\n";
}
else {
    print "FILE is not open\n";
}