elsif($choice eq'2'){ @lines =$t ->cmd ("sysconfig -r"); print @lines; print "\n\nEnter name of the volume to destroy : "; my $vol = <>; chomp $vol; @lines =$t ->print ("vol destroy $vol"); $t ->waitfor('/Are you sure you want to destroy this volume ?/'); $t ->cmd ('yes'); print @lines; }