#!/usr/bin/perl -w
use strict;
use warnings;
use Net::SSH qw(ssh);


  my $user = "abhishek";
  my $hostname = "dpsharp";
  my $command = "`cat /proc/meminfo |grep -w MemTotal |awk '{print $2}'`";--->line 9

ssh('user@hostname', $command);