($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
		$atime,$mtime,$ctime,$blksize,$blocks) = stat $s_private_key;
open FILE, "<$s_private_key" or die "no such file";
binmode FILE;
my $s_private_key_content;
read FILE, $s_private_key_content, $size;
close FILE;