Simple DirectMedia Layer Perl