use vars qw {
  $g_var1
}