use IO::Socket; use Fcntl; use strict; use threads; use threads::shared; use MP3::Info; use List::Util 'shuffle'; use LWP; use Switch; use Astro::Sunrise;