Write some Software

Need to convert this script of Perl 5.10 to Perl 5.20. I assume it is a simple job for someone familiar with Perl. Let me know what do you think. ========== #!/usr/local/bin/perl use DBForm::Page ; use DBForm::Form ; use DBForm::Field ; $page=DBForm::Page->new(id=>"Caseweb Users",showlocation=>'none',sidebarwidth=>0,sidebar=>'navy'); $dbsource='DBI:mysql:db476633236:[login to view URL]' ; $dbuser='dbo476633236'; $dbpass='*********'; $main=$page->add_form(id=>"Users",dbname=>'case',dbtable=>'t_user',size=>'90%', dborderby=>'user_id', #showlocation=>'none', #showlist=>'yes', #allowsearch=>'yes', allowinsert=>0, allowdelete=>0, #layout=>'COL', dbsource=>$dbsource, dbuser=>$dbuser, dbpass=>$dbpass); $this=$main->add_field(id=>'user_id',size=>15,key=>1,auto=>1,searchable=>1,editable=>0) ; $this=$main->add_field(id=>'login',size=>15,key=>1,auto=>1,searchable=>1,editable=>0) ; $dummy=$main->add_field(id=>'first_name',size=>20,editable=>0); $dummy=$main->add_field(id=>'last_name',size=>20,editable=>0); $dummy=$main->add_field(id=>'country',size=>20,editable=>0); #$dummy=$main->add_field(id=>'grupo',size=>8,optselect=>'select id, name from subdomains order by id') ; #$dummy=$main->add_field(id=>'description',type=>'memo',lines=>5,size=>70) ; #$dummy=$main->add_field(id=>'folder',size=>32) ; $dummy=$main->add_field(id=>'journal',optyn=>2) ; #if ( $main->{usertype} eq 'ADMIN' ) { $page->print ; #} else { # $page->redirect("/[login to view URL]") ; #}