package Preempt::Stdin;
use strict;

sub TIEHANDLE {
	my $class = shift;
	my @lines = @_;
	bless \@lines, $class;
}

sub READLINE {
	my $self = shift;
	shift @$self;
}

1;