package FileNamePrep;

use strict;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION = 0.1;
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(promptfilename);
%EXPORT_TAGS = ( DEFAULT => [qw(promptfilename)],
		 Both => [qw(promptfilename)]);

sub promptfilename {
	my $file; 
	while(! $file){
		$file=<>;
		chomp($file);
		$file =~s/^"(.+)"$/$1/;
	}
return $file;
}
1;