#!/usr/bin/env perl
use warnings;
use strict;
use Sys::Hostname;

sub getfqdn {
	my ($host) = @_;

	my @ret = gethostbyname($host);
	return $ret[0] // $host;
}

my $host;

for my $arg ($ARGV[0]) {
	if (!defined $arg) {
		$host = hostname;
	}
	elsif ($arg eq "-s") {
		($host) = split(/\./, hostname);
	}
	elsif ($arg eq "-f") {
		$host = getfqdn(hostname);
	}
}

print "$host\n";
