perl own directory
perl warnings