Installing all new crap on debian / ubuntu

THis is the same as the script before as written for both arch and ubuntu...the diffrence being is that if you aren't root you need to run this with sudo. Just remember save the script with a name like install.pl and launch it from the command line with a cammand like: sudo perl install.pl

The script:

#!/usr/bin/perl
use strict;
use warnings;

my $aptget;

my @aptget_installs = qw(
 xchat screen cpan
 wget pcre-devel cmake
 gtk+ pygame python-devel
 cmake cmake-devel liblo
 liblo-devel gcc-c++-devel cmake-gui
 libsndfile libsndfile-devel qjackctl
 zynaddsubfx vkeybd qtjack-devel
 csound csound-devel portmidi
 rosegarden4 jamin jack-audio-connection-kit-devel
 ctapi-cyberjack-devel zynjacku ardour
 nxt_python pybluez
);

&array_cracker();

sub array_cracker(){
 foreach(@aptget_installs){
   print $_;
   $aptget = `apt-get install -y $_`;
   print $aptget;
  }
}