#!/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";

system("xsel -bo > ~/arza.us/public_html/paste/$name");
system("echo -n http://paste.arza.us/$name | xsel -bi");