#!/usr/bin/perl
do '1-search_user.pl'
and do '2-prepare_2update_user.pl'
and do '3-backup.pl'
and do '4-run_update.pl'
or die "error occurred\n";