#adjusting the @INC
shift(@INC);
unshift(@INC,'/usr/share/perl/5.10.1/etc/perl'); 
#Call to your script
qx(do-release-upgrade);