if (-d $foo) {
	...
}
elsif (-s _) {
	...
}