Anonymous

#!/usr/bin/perl

$command = "ls /home/vasiliy/.e/e/backgrounds/*.edj --format=single-column > /home/vasiliy/tmp/tmp.txt";
system $command;

srand;
 open FILE, "</home/vasiliy/tmp/tmp.txt" or die "Could not open filename: $!\n";
 rand($.) <1 and ($line=$_) while <FILE>;
 close FILE;
 chomp $line;

$command = "/usr/local/bin/enlightenment_remote -default-bg-set $line";
system $command;