#!/bin/perl use Log::Painless; # sends warnings, info, and exceptions to main.log info "Logging begun"; warn "Hello, there!"; #behaves like warn, but logs warning as well. die "Program done."; #behaves like die, but logs exception as well.