#!/usr/bin/perl

my @t=localtime;

my ($d,$k,$h,$m)=($t[3],$t[4]+1,$t[2],$t[1]);
foreach $val ($d,$k,$h){ $val=chr($val+87) if $val>9; }

if($m>35){ $m=chr($m+29); }
elsif($m>9){ $m=chr($m+87); }

my $name="$d$k$h$m.png";

system("import -window root ~/arza.us/public_html/up/$name");
system("echo -n http://up.arza.us/$name | xsel -ib");