# file: printf.pl
printf "%4.4f\n",   3.14159;
printf "%4.4lf\n",  3.14159;
printf "%4.4hf\n",  3.14159;
printf "%4.4qf\n",  3.14159;
printf "%4.4Lf\n",  3.14159;
printf "%4.4llf\n", 3.14159;

##</code><code>##

$ /usr/bin/perl5.6.1 printf.pl 
3.1416
3.1416
3.1416
%4.4qf
%4.4Lf
%4.4llf

$ /usr/local/bin/perl5.8.0 printf.pl 
3.1416
%4.4lf
%4.4hf
%4.4qf
3.1416
3.1416

##</code><code>##

Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
    use64bitint=undef use64bitall=undef uselongdouble=undef

    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, usemymalloc=n, prototype=define


Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
    use64bitint=undef use64bitall=undef uselongdouble=undef

    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define