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