用迴圈控制分步驟執行過長的Perl指令碼

最近在寫一個比較長的Perl指令碼，用來自動化實現做task的流程與步驟。但是，其中有一些很容易出錯的步驟，比如說我的VPN沒有開、某某服務沒啟動等，就執行不了一些操作，從而導致指令碼運行出錯。
這個時候，我只好先修複配置錯誤，然後重新從頭執行指令碼。這樣浪費了大量的時間，也弄得我很煩躁。工作原本就沒太多樂趣，而我，哪裡可能記得住這麼多瑣碎的事呢？
今天寫了一個迴圈控制的東西，能在出錯的步驟停止下來，等我修改了出錯的步驟（系統內容而非代碼本身），又能從中止的地方重新開始。範例程式碼如下：
use warnings; use strict;
sub test1 { print “test1\n”; }
sub test2 { print “test2\n”; }
sub test3 { print “test3\n”;
}
my $result = undef;
sub controller { my $code_array = shift; my ($code,$code_name) = @$code_array; while (1) { my $new_result = eval {&$code}; if ($@) { print “$@ \n Someting is wrong when execute $code_name, please input ENTER [...]