#!/usr/bin/perl -w

# uflick.pl - upload to flickr

use strict;
use Flickr::Upload;

my $auth_token = '123456abc-8907b9';
my $photo = '/home/guest/foto/100NCD40/DSC_0082.JPG';

my $flick = Flickr::Upload->new(
    { 'key' => '123456',
      'secret' => '7890123'
    }
);

$flick->upload(
    'photo' => $photo,
    'auth_token' => $auth_token,
    'tags' => 'simpleuploader',
    'is_public' => 0,
    'is_friend' => 0,
    'is_family' => 0
) or die "Failed to open $photo.";