#!/usr/local/bin/perl

use PGPLOT;

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

$file="sfo_ord__Sep_23_Sep_26";


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);
	
	#Define Colors for Plot
	pgscr(17, .282 , .239, .545);
	pgscr(0,0,0,.5);
	pgscr(18, .9,.8,.7);
	#######
	
	pgscf(2);	#Define Font
	pgslw(3);	#Define Width
	pgsch(1.5);	#Define Character Height
	pgsci(18);	#Choose Whitish Color	
	pgenv(0,$nmbr,200,400,2,2);
	
	pgsci(1);	#Change color to pure white
	pgsch(2);	#Make font bigger for Labels
	pglabel('Time','Price',"Airfare for $file");
		
	pgsci(1);	#Keep Color White	
	pgslw(14);	#Make line width bigger for plot
	pgbin($nmbr, \@x, \@prices,1);
	pgsci(14);
	pgend;