package Data::File;

sub new {
    my $class = shift;
    my $self = {
	file => iFile->new(shift)
    };
    bless $self, $class;
}