Select Code to Download

use File::Find;
use MP3::Info;
...
$entries
</Asx>
EOF

'<Duration value = "' . "$duration" . '" />' . "\n"

"<Duration value = \"$duration\" />\n"

qq(<Duration value = "$duration" />\n)

<<EOF
<Duration value = "$duration" />
EOF