BEGIN {     
    $0 = $0 . join ' - '@ENV{qw{QUERY_STRING PATH_INFO}} 
}