A perl ICal QRCode generator