use strict;
use warnings;
use File::Remote;

{
	no strict;
	my $remote = new File::Remote (rsh => "/usr/bin/ssh", rcp => "/usr/bin/scp");
	$remote->open(FILE, '>>biz:/tmp/weeeee') or die $!;
	print FILE "Here's a line that's added.\n";
	$remote->close(FILE);
}

##</code><code>##

mkdir ~/.ssh
echo "Host biz\nPort 888\n" >> ~/.ssh/config
chmod go= ~/.ssh ~/.ssh/config