sub parse {
     my $self = shift;
    my $file = shift;
    open FILE,'<',$file || die "Can't open $file";

##</code><code>##

    open FILE,'<',$file or die "Can't open $file";

##</code><code>##

    open( FILE,'<',$file ) || die "Can't open $file";

##</code><code>##

    open FILE,'<',$file or die "Can't open $file: $!";