sub new {
  my $class = shift;
  bless [@_], $class;
}

sub next_file {
  my $self = shift;
  shift @$self;
  return $self->[0];
}

sub selected_file { (shift)->[0] }