#!/usr/bin/perl

use warnings;
use strict;

use lib 'lib';

use HBCU::YouTube;

my $yt = HBCU::YouTube->new;
my $file = $ARGV[0];

die "Need a filename\n" unless $file;

my %data = (
	    title => 'Test Video',
	    description => 'Test Description',
	    keywords => 5500,
	    filename => $file,
	   );


if (my $id = $yt->uploadFromFS( \%data )) {
  print "Added Video Successfully!!!! Your YouTube video id is: $id\n";
} else {
  print "Failure: ", $yt->error, "\n";
}