#!/usr/local/bin/perl

use PGPLOT;

print "Which file would you like to see?\n\n"; 	#Ask user for file

	my $file=<STDIN>;				#Take in name
	chomp ($file);					#Chop off newline

open IN, "$file" or die"Can't open $file: $!\n";	#open file with prices

@prices=<IN>;						#Make prices into array

$nmbr=scalar(@prices);			#Find number of prices

my @x;
my $i=1;

$dev="?" unless defined $dev;

while($i <= $nmbr){
	$x[$i]=$i;
	$i++;
	}	
	
	pgbegin(0,$dev,1,1);
	pgscr(0,1,1,1);
	pgscf(2);
	pgslw(2);
	pgsch(1.6);
	pgsci(4);
	pgenv(0,$nmbr,200,400,2,2);
	pgsci(14);
	pglabel('Time','Price',"Airfare for $file");
	pgsci(2);
	pgbin($nmbr, \@x, \@prices,1);
	pgsci(14);
	pgend;