P:\test>t
  1 is a square
  4 is a square
  9 is a square
 16 is a square
 25 is a square
 36 is a square
 49 is a square
 64 is a square
 81 is a square
100 is a square
  1 is a square
  4 is a square
  9 is a square
 16 is a square
 25 is a square
 36 is a square
 49 is a square
 64 is a square
 81 is a square
100 is a square
  1 is a square
  4 is a square
  9 is a square
 16 is a square
 25 is a square
 36 is a square
 49 is a square
# segfault occurs here.
AppName: perl.exe	 AppVer: 5.8.2.808	 ModName: perl58.dll
ModVer: 5.8.2.808	 Offset: 0006676a


P:\test>perl -V
Summary of my perl5 (revision 5 version 8 subversion 2) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
    uname=''
    config_args='undef'
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
[SNIP]