or download this
#!/usr/bin/perl
use strict;
...
($out,$err) = $ssh->capture2("cfgadd \"FC_DVT\", \"test5\"");
($out,$err) = $ssh->capture2({stdin_data => 'yes'},"cfgsave");
($out,$err) = $ssh->capture2({stdin_data => 'yes'},"cfgenable \"FC_DVT
+\"");