Sudo start process: when password is required

sudo_expect.pl

#!/usr/bin/perl
use strict; use warnings; use Data::Dumper;
use Expect;

my $expect      = Expect->new;
my $command     = 'sudo service ssh start';
my $timeout     = 500;
my $password    = "password";

$expect->raw_pty(1);  
$expect->spawn($command)
    or die "Cannot spawn $command: $!\n";

$expect->expect($timeout,
                [   qr/password for abhasker/i, #/
                    sub {
                        my $self = shift;
                        $self->send("$password\n");
                        exp_continue;
                    }
                ]);