#!/usr/bin/env perl   

#  -*- perl -*-

use strict;
use warnings FATAL => qw ( all );
use Data::Dumper;
use Formats;
use Errors;

# REMOVETREE
#
# Ebbe Sloth Andersen, 2007.

# >>>>>>>>>>>>>>>>>> RUN PROGRAM <<<<<<<<<<<<<<<<<<<<

my ( $entries,
	 $entries2,
     $file, 
     $header,
     $entry,
     );

( $file ) = @ARGV;
$entries = &Formats::read_col ( $file );

shift @{ $entries };

$header .= "This file was made by removetree";

&Formats::write_col ( $header, $entries );
