change wallpaper

#!/usr/bin/perl -w
#randomly change my wallpaper.
#by F. do what you will with this.

use warnings;
use strict;

opendir(DIR, "/home/f/misc/wallpaper") || die "can't opendir ~/misc/wallpapers: $!";
my @files = grep { $_ ne '.' and $_ ne '..' } readdir(DIR);
closedir DIR;

# perldoc -q "random element"
my $chosenwp = $files[rand @files];

print "chosen wallpaper is: $chosenwp\n";
system("feh --bg-scale /home/f/misc/wallpaper/$chosenwp");

lol

I wonder from what website OP copypastaed that snipped

>>1
that's about as useless as this
#!/usr/bin/perl

use warnings;
use strict;
use POSIX qw(strftime);

use constant SCREENSHOTS     => 'picz/screenshots';
use constant FILEEXT        => 'png';
use constant PREFIX            => 'laptop_';
use constant SCREEN_CMD        => "import -window root -screen";

$|=1;

my $filename = PREFIX.`uname`."-".`uname -r`."-".strftime("%F", localtime(time()));
$filename =~ s/[\r\n]//g;
my $append = '';
my $c = 0;

my $fullname = SCREENSHOTS."/".$filename.".".FILEEXT;

while(-f $fullname) {
    $c++;
    $append = "-".$c;
    $fullname = SCREENSHOTS."/".$filename.$append.".".FILEEXT;
}

for(my $c=1;$c<5;$c++) {
    print("\a");
    sleep(1);
}
   
system(SCREEN_CMD." ".$fullname);

exit(0);

If a nano fag forgets to logout, I store this as nano in a folder in the beginning of $PATH. It's minor fun. inb4 no life


#!/usr/bin/env perl
 
print "Starting nano in: ";
$| = 1;
my $c = 3;
for (1..3) {
        print $c and $c--;
        do {
                select undef, undef, undef, 0.3;
                print "." unless $_ == 3;
        } for 1..3;
}
exec '/usr/bin/nano', @ARGV
        or die "couldn't start nano :(";

The computer specs I   tried to open   DAT and IDX   files could your   superior programan knowledge.

^{Back to /b/, ``GNAA Faggot''}

Are you GAY?
Are you a NIGGER?
Are you a GAY NIGGER?

If you answered "Yes" to all of the above questions, then GNAA (GAY NIGGER ASSOCIATION OF AMERICA) might be exactly what you've been looking for!

<-- check em dubz