my $graph = new GD::Graph::mixed( 900, 600 );

my @data  = (
 [	   '1st', '2nd', '3rd', '4th', '5th'  ],
 [      3300,  2400,  2300,  1900,  2100   ],
 [      500,  550,  900,  510,  400   ],
 [      250,  350,  400,  710,  200   ]
);
$graph->set( 
 title           => TITLE,
 two_axes 	    => 1,
 use_axis        => [1,2,2],
 x_label         => "Day",
 y1_label        => "Minutes",
 y2_label	    => "Hours",
  long_ticks      => 1,
 y_tick_number  => 8, 
y1_label_skip   => 2,
y2_label_skip   => 2,
bar_spacing     => 40,
types           => [ qw(bars linespoints linespoints) ],
);