#!/usr/bin/perl -w
use strict;
########################
# Coded by Daenyth (daenyth@gmail.com)
#
# Set your wallpaper to a random file in the specified folder.
# Note that the only files that should be in the
# wallpaper folder are ones that will work as wallpapers
########################
my $wallpaperdir = "~/wallpaper/";
my $setpaper = "fbsetbg";
my @paperlist = `ls $wallpaperdir`;
my $paperindex = int(rand($#paperlist));
my $set = "$setpaper $wallpaperdir" . "$paperlist[$paperindex]";
chomp $set;
print "$set\n";
`$set`;
exit 0;