$ truss perl -Mstrict -e 'warn "hello, world!"' | & grep 'open.* = [0-9]'
open("/var/run/ld-elf.so.hints",0x0,00)          = 3 (0x3)
open("/usr/lib/libm.so.2",0x0,05004221227)       = 3 (0x3)
open("/usr/lib/libc.so.4",0x0,05004221227)       = 3 (0x3)
open("/usr/lib/libcrypt.so.2",0x0,05004221227)   = 3 (0x3)
open("/usr/lib/libutil.so.3",0x0,05004221227)    = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_COLLATE",0x0,0666) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_CTYPE",0x0,0666) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_MONETARY",0x0,05007050567) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_NUMERIC",0x0,05007050567) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_TIME",0x0,05007050567) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_MESSAGES",0x0,05007050567) = 3 (0x3)
open("/dev/null",0x0,0666)                       = 3 (0x3)
open("/usr/perl5.8.0/lib/5.8.0/strict.pm",0x0,0666) = 4 (0x4)