# Note - not very thoroughly tested
if (-t STDIN) {
    # command-line
} elsif (defined $ENV{SERVER_NAME}) {
    # CGI - I used SERVER_NAME, as it _should_ be set
} else {
    # e-mail
}