#!/usr/bin/perl

use strict;
use warnings;
use feature qw(say);

say $ENV{SERVER_PROTOCOL} ? "Content-type: text/plain\n\nBin auf Webserver" : 
    (-t 1)                ? "Bin auf Konsole"                               : "Bin Sonstwo";