#!/usr/bin/perl -ws

use strict;
our ($name, $age, $sex);

# ...