my $host = "192.168.2.1";
my $user = "root";
my $pass = "meinpsswd";
my $landevice = $_[0];
my $ssh = Net::SSH::Perl->new($host, debug=>3);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd(". ~/.profile; /var/media/ftp/Intenso-RainbowLine-01/MyUtils/LanDeviceActive.pl $landevice");