#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	if (@_) {
		# set field: override this method with a static value
		open (OUT, ">hostname") || die "$!";
		print OUT join("\n", @_);
		close OUT;
		return @_;
	}
	
	my $ret=`hostname -f`;
	chomp $ret;
	return $ret;
}
