#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';

my @lines = qx(locale);

# html
print header(),start_html('Locale Test');
print pre(@lines);
print end_html();