sub shapcs {
	
	my ($MyIP , $MyUser , $MyPass , $MyPass2 , $command ) = @_ ;
	
	my $ssh_1 = Net::Appliance::Session->new({personality => 'ios', transport => 'SSH', host => "$MyIP",}) ;
		$ssh_1->connect({ username => "$MyUser", password => "$MyPass" }) ;
		$ssh_1->begin_privileged({ password => "$MyPass2"}) ;
		$ssh_1->cmd("conf t") ;
		$ssh_1->cmd("$command") ;
}
		print 'Please write your command :' ;
                chomp (my $command1 = <STDIN>) ;
		
				if (shapcs($MyIP , $MyUser , $MyPass , $MyPass2 , $command1)) {
                    print shapcs($MyIP , $MyUser , $MyPass , $MyPass2 , $command1) , "\n" ;
                		}
				else {
					print "Authentication Failed\n" ;
				}