Something

snak3@snak3-desktop:~$ sudo perl '/home/snak3/Desktop/x-comp-control.pl' 
[sudo] password for snak3:
s0l1dsnak3123's x-comp-control script v0.1
This script uses the 'xpad' script to control compiz fusion

-={ Checking for xpad in /dev/input/js0... }=-
-={ All ok }=-

Can't locate object method "new" via package "Linux::Input::Joystick" (perhaps you forgot to load "Linux::Input::Joystick"?) at /home/snak3/Desktop/x-comp-control.pl line 40.